home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 41
/
Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso
/
Aminet
/
text
/
dtp
/
AW-Filter.lha
/
AmigaWriter-Filter
/
UnInstall
< prev
next >
Wrap
Text File
|
2000-10-29
|
3KB
|
80 lines
; Uninstallation script for AmigaWriter-Filter
;
; ©2000 by Rüdiger Hanke
(set #FILTERPATH "SoftLogik:Filters")
(set #DOCFILTER (cat #FILTERPATH "/AmigaWriter.dfilter"))
(set #TEXTFILTER (cat #FILTERPATH "/AmigaWriter.tfilter"))
(set #DEINSTALL_TFILTER (exists (cat "" #TEXTFILTER) (noreq)))
(set #DEINSTALL_DFILTER (exists (cat "" #DOCFILTER) (noreq)))
(set @app-name "AmigaWriter-Filter")
(set @default-dest (cat "" #FILTERSPATH))
; First check some stuff
(if (and (<> 1 #DEINSTALL_TFILTER)
(<> 1 #DEINSTALL_DFILTER))
(
(abort "AmigaWriter-Filter is not installed!\n\nThe installer could not find any installed filter.\n")
)
)
; Ask what to install if user != novice
(if (<> @user-level 0)
(
(set #BITMASK 0)
(if (<> 0 #DEINSTALL_DFILTER)
(
(set #BITMASK (bitor #BITMASK 1))
)
)
(if (<> 0 #DEINSTALL_TFILTER)
(
(set #BITMASK (bitor #BITMASK 2))
)
)
(set #RESULT (askoptions (prompt "Please select which filter(s) you'd like to deinstall:")
(choices "Document filter" "Text filter")
(default #BITMASK)
(help "Select the filters you would like to deinstall.\n\nDocument filter:\n"
"With the document filter, you can load AmigaWriter documents in PageStream "
"via the \"Open\" menu item as if they were PageStream-native documents. Page sizes, boxes, images, "
"links between boxes etc. will all be imported.\n\n"
"Text filter:\nThe text filters imports the main flowtext of your AmigaWriter "
"document via the \"Insert text\" menu item into the current column.\n\n"
"Both filters can co-exist and unless you absolutely don't need one of them, "
"there is no reason to install only one.")))
(if (not (bitand 1 #RESULT))
(
(set #DEINSTALL_DFILTER 0)
)
)
(if (not (bitand 2 #RESULT))
(
(set #DEINSTALL_TFILTER 0)
)
)
)
)
; DeInstall
(if (<> 0 #DEINSTALL_DFILTER)
(
; Delete document filter
(delete #DOCFILTER
(prompt "Deinstalling document filter..."))
)
)
(if (<> 0 #DEINSTALL_TFILTER)
(
; Delete text filter
(delete #TEXTFILTER
(prompt "Deinstalling text filter..."))
)
)